﻿Imports System.Data
Imports Comunes
Partial Class AppFront_Administracion_ConeccionesAJAX_AdministracionPerfilesAJAX
    Inherits cls_sesion
    Dim miDS As New DataSet
    Dim objJSon As New clsJsonSR.clsJsonSR    
    Dim objPerfilesApp As New cls_perfilesApp

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If USUS_USUARIO.ToString <> "" Then
                If Request.Params("go") = "" Then
                    Select Case Request.Form("accion").ToString
                        Case "listarVigenciaPerfil"
                            v_str_respuestaJson = objPerfilesApp.listarVigenciaPerfil()
                        Case "listarPerfiles"
                            objPerfilesApp.numPagina = Request("start")
                            objPerfilesApp.cantPagina = Request("limit")
                            v_str_respuestaJson = objPerfilesApp.listarPerfiles()
                        Case "guardarNuevoPerfil"
                            objPerfilesApp.p_arr_accmenu = Request("p_arr_accmenu").Split(",")
                            objPerfilesApp.PEPE_NOMBRE = Request("p_str_nombre")
                            objPerfilesApp.PEPE_NID = Request("p_int_nid_perfil")
                            objPerfilesApp.ESES_NID = Request("p_int_nid_estado")
                            v_str_respuestaJson = objPerfilesApp.guardarNuevoPerfil()
                        Case "eliminarPerfil"
                            objPerfilesApp.PEPE_NID = Request("p_int_nid_perfil")
                            v_str_respuestaJson = objPerfilesApp.eliminarPerfil()
                    End Select
                Else
                    objPerfilesApp.PEPE_NID = Request.Params("pepenid")
                    v_str_respuestaJson = objPerfilesApp.listarMenuPrincipalCheckbox()
                End If
                Response.Write(v_str_respuestaJson)

            Else
                Response.Write("nosession")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

End Class
